home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Software Contest 3 / FM Towns Software Contest 3.iso / exp / bpp / no1 / fact.bpp < prev    next >
Text File  |  1994-01-07  |  193b  |  15 lines
  1. ' FACT.BPP
  2. makestack 1024,0,0,0
  3. print "calc n!"
  4. input "n";n
  5. call fact(r, n)
  6. print r
  7. end
  8.  
  9. sub fact(bybody r, n)
  10.   if n=1 then r=1:exitsub
  11.   call fact(r,n-1)
  12.   r=r*n
  13.   n=n-1
  14. endsub
  15.